home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00b.txt / 000130_icon-group-sender_Mon Oct 30 16:27:22 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  4KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id e9UNRBu14167
  4.     for icon-group-addresses; Mon, 30 Oct 2000 16:27:12 -0700 (MST)
  5. Message-Id: <200010302327.e9UNRBu14167@baskerville.CS.Arizona.EDU>
  6. Date: Mon, 30 Oct 2000 14:31:48 -0700
  7. From: Steve Wampler <swampler@noao.edu>
  8. X-Accept-Language: en
  9. To: symbiot@my-deja.com
  10. CC: icon-group@cs.arizona.edu
  11. Subject: Re: How would the experts handle this...??
  12. Errors-To: icon-group-errors@cs.arizona.edu
  13. Status: RO
  14. Content-Length: 3009
  15.  
  16. symbiot@my-deja.com wrote:
  17. > 
  18. > Greetings! And welcome to my latest edition of "Questions from the
  19. > Newbie"
  20. > 
  21. > The situation is this:
  22. > 
  23. > I wish to scan thru a file and determine how letters "connect" with one
  24. > another. By that I mean that for every letter of the alphabet, I would
  25. > like to compile two lists: one containing all the letters which apper
  26. > to the right of the given letter, and another for all those appearing
  27. > to the left.
  28. ...
  29. > Thus far, I have been roundly criticized by icon afficiandos for my use
  30. > of explicit indexing. It seems to me an intuitive way to handle the
  31. > problems I've faced and makes the program "readable" to the layman.
  32.  
  33. "layman"?  As in someone who doesn't program?  I'd claim that *any* solution
  34. is unreadable in that case!  If you mean someone who knows C and not Icon,
  35. that may be right, but if that's your goal, then perhaps C would be a better
  36. choice to start with?
  37.  
  38. > But, be that as it may, I'm curious as to how those "in the know" would
  39. > handle this problem in a more "icon-esque" fashion.
  40.  
  41. Well, I took a few liberties:
  42.  
  43.    (1) I assume the output could just as well show lowercase versions of
  44.        the letters for the "middle" letter instead of uppercase versions.
  45.    (2) and I assume you really mean "letters" and not "characters" (your
  46. solution
  47.        also records non-letter characters on the left or right)
  48.    (3) and you don't want duplicated letters (your solution allows duplicated
  49.        letters, but I didn't read that as a requirement in the problem
  50.        statement)
  51.    (4) and, that the output should be formatted as shown in your
  52.        example (your code outputs it differently).
  53.    (5) the file name is given as a command line argument and all files named
  54.        on the command line should be processed and letter-pairs accumulated
  55.        across all the files (not file-by-file, which can be done by running
  56.        the program separately on each file).
  57.  
  58. Any of those is easy to change
  59.  
  60. Here's a solution:
  61.  
  62. global leftSides, rightSides
  63.  
  64. #
  65. # Accumulate letter-pair information for all lines of all files listed on
  66. #    the command line.
  67. #
  68. procedure main(args)
  69.    leftSides := table('')
  70.    rightSides := table('')
  71.  
  72.    every buildPairs(!open(!args))
  73.  
  74.    showResults()
  75. end
  76.  
  77. procedure buildPairs(s)
  78.     lChar := mChar := ''
  79.     every rChar := !s do {
  80.         # only remember pairs where left (or right) is a letter
  81.         #
  82.         leftSides[map(mChar)] ++:= (&letters ** lChar)
  83.         rightSides[map(mChar)] ++:= (&letters ** rChar)
  84.  
  85.         # shift characters to the left...
  86.         #
  87.         #   (aside: this also works!:  rChar :=: mChar :=: lChar)
  88.         #
  89.         lChar := mChar
  90.         mChar := rChar
  91.         }
  92. end
  93.  
  94. procedure showResults()
  95.     every c := !&lcase do {
  96.         # Could add test here to only print output that has left or right side
  97.         write(c,":\tleft-  ",leftSides[c])
  98.         write(   "\tright- ",rightSides[c])
  99.         }
  100. end
  101.  
  102.  
  103.  
  104. --
  105. Steve Wampler-  SOLIS Project, National Solar Observatory
  106. swampler@noao.edu
  107.